1 GETA$:IFA$=CHR$(27)THEN2ELSEPOKE#5000+I,ASC(A$):I=I+1:PRINTA$;:GOTO1
2 PRINT:INPUT"RALENTI:";A:FORJ=#5000TO#5000+1:PRINTCHR$(PEEK(J));:WAITA:NEXT